home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pibt40s1.arc / DOXMODU2.MOD < prev    next >
Text File  |  1987-09-10  |  2KB  |  64 lines
  1. BEGIN (* Do_Xmodem_Upload *)
  2.                                    (* Set comm. parms to 8,n,1 *)
  3.  
  4.    Xmodem_Bits_Save   := Data_Bits;
  5.    Xmodem_Parity_Save := Parity;
  6.  
  7.    IF ( Data_Bits <>  8  ) OR
  8.       ( Parity    <> 'N' ) THEN
  9.          BEGIN
  10.             Parity    := 'N';
  11.             Data_Bits := 8;
  12.             Async_Reset_Port( Comm_Port, Baud_Rate, Parity, Data_Bits, Stop_Bits );
  13.          END;
  14.  
  15.                                    (* Reset status line *)
  16.    IF Do_Status_Line THEN
  17.       BEGIN
  18.          Set_Status_Line_Name( Short_Terminal_Name );
  19.          Write_To_Status_Line( Status_Line_Name, 1 );
  20.       END;
  21.  
  22.                                    (* Perform transfer *)
  23.    CASE Transfer_Protocol OF
  24.  
  25.       Xmodem_Chk   : Send_Xmodem_File( FALSE );
  26.  
  27.       WXmodem,
  28.       Xmodem_CRC   : Send_Xmodem_File( TRUE  );
  29.  
  30.       Telink,
  31.       Modem7_CRC   : Send_Modem7_File( TRUE  );
  32.  
  33.       Modem7_Chk   : Send_Modem7_File( FALSE );
  34.  
  35.       SeaLink,
  36.       Ymodem_G,
  37.       Ymodem_Batch : Send_Ymodem_File( TRUE  );
  38.  
  39.       Xmodem_1K,
  40.       Xmodem_1KG   : Send_Ymodem_File( FALSE );
  41.  
  42.       ELSE ;
  43.  
  44.    END  (* Case *);
  45.                                    (* Reset comm parms to saved values *)
  46.  
  47.    IF ( Xmodem_Bits_Save   <>  8  ) OR
  48.       ( Xmodem_Parity_Save <> 'N' ) THEN
  49.          BEGIN
  50.             Parity    := Xmodem_Parity_Save;
  51.             Data_Bits := Xmodem_Bits_Save;
  52.             Async_Reset_Port( Comm_Port, Baud_Rate, Parity,
  53.                               Data_Bits, Stop_Bits );
  54.          END;
  55.  
  56.                                    (* Reset status line *)
  57.    IF Do_Status_Line THEN
  58.       BEGIN
  59.          Set_Status_Line_Name( Short_Terminal_Name );
  60.          Write_To_Status_Line( Status_Line_Name, 1 );
  61.       END;
  62.  
  63. END   (* Do_Xmodem_Upload *);
  64.